inherited fmAddEditDoc: TfmAddEditDoc
  Left = 51
  Top = 0
  Width = 997
  Height = 780
  Caption = #1044#1086#1082#1091#1084#1077#1085#1090
  Constraints.MinHeight = 780
  Constraints.MinWidth = 983
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label10: TLabel [0]
    Left = 8
    Top = 50
    Width = 76
    Height = 13
    Caption = #1058#1080#1087' '#1076#1086#1082#1091#1084#1077#1085#1090#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGray
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object Label11: TLabel [1]
    Left = 7
    Top = 101
    Width = 31
    Height = 13
    Caption = #1057#1077#1088#1080#1103
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGray
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object Label12: TLabel [2]
    Left = 168
    Top = 101
    Width = 31
    Height = 13
    Caption = #1053#1086#1084#1077#1088
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGray
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object Label13: TLabel [3]
    Left = 8
    Top = 156
    Width = 68
    Height = 13
    Caption = #1044#1072#1090#1072' '#1074#1099#1076#1072#1095#1080
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGray
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object Label14: TLabel [4]
    Left = 8
    Top = 303
    Width = 55
    Height = 13
    Align = alCustom
    Caption = #1050#1077#1084' '#1074#1099#1076#1072#1085
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGray
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    Visible = False
  end
  object Label32: TLabel [5]
    Left = 10
    Top = 208
    Width = 67
    Height = 13
    Align = alCustom
    Caption = #1050#1086#1084#1084#1077#1085#1090#1072#1088#1080#1081
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGray
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object sbType: TSpeedButton [6]
    Left = 311
    Top = 69
    Width = 26
    Height = 26
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      0400000000008000000000000000000000001000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFF0FFFFFFFFFFFFFF000FFFFFFFFFFFF00000FFFFFFFFFF0000000F
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
    OnClick = sbTypeClick
  end
  inherited sbBottom: TStatusBar
    Top = 769
    Width = 973
  end
  inherited Panel1: TPanel
    Width = 973
    Height = 41
    TabOrder = 6
    DesignSize = (
      973
      41)
    inherited BitBtn1: TBitBtn
      Left = 800
    end
    inherited BitBtn2: TBitBtn
      Left = 888
    end
  end
  object edCLPASSPORTSERIA: TDBEdit [9]
    Left = 7
    Top = 117
    Width = 138
    Height = 27
    DataField = 'DSERIA'
    DataSource = dlgDS
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
  end
  object edCLPASSPORTNUMBER: TDBEdit [10]
    Left = 168
    Top = 117
    Width = 145
    Height = 27
    DataField = 'DNUMBER'
    DataSource = dlgDS
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 2
  end
  object mdDNOTE: TDBMemo [11]
    Left = 8
    Top = 225
    Width = 305
    Height = 66
    Align = alCustom
    DataField = 'DNOTE'
    DataSource = dlgDS
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 5
  end
  object edCLPASSPORTDATE: TcxDBDateEdit [12]
    Left = 8
    Top = 173
    DataBinding.DataField = 'DDATE'
    DataBinding.DataSource = dlgDS
    ParentFont = False
    Properties.InputKind = ikMask
    Style.Font.Charset = DEFAULT_CHARSET
    Style.Font.Color = clBlack
    Style.Font.Height = -16
    Style.Font.Name = 'Tahoma'
    Style.Font.Style = [fsBold]
    Style.LookAndFeel.Kind = lfFlat
    Style.IsFontAssigned = True
    StyleDisabled.LookAndFeel.Kind = lfFlat
    StyleFocused.LookAndFeel.Kind = lfFlat
    StyleHot.LookAndFeel.Kind = lfFlat
    TabOrder = 3
    Width = 137
  end
  object eNAME: TcxTextEdit [13]
    Left = 8
    Top = 69
    ParentFont = False
    Properties.ReadOnly = True
    Properties.OnChange = eNAMEPropertiesChange
    Style.Font.Charset = DEFAULT_CHARSET
    Style.Font.Color = clBlack
    Style.Font.Height = -16
    Style.Font.Name = 'Tahoma'
    Style.Font.Style = [fsBold]
    Style.LookAndFeel.Kind = lfFlat
    Style.IsFontAssigned = True
    StyleDisabled.LookAndFeel.Kind = lfFlat
    StyleFocused.LookAndFeel.Kind = lfFlat
    StyleHot.LookAndFeel.Kind = lfFlat
    TabOrder = 0
    Width = 305
  end
  object edDFROMWHO: TDBMemo [14]
    Left = 8
    Top = 319
    Width = 305
    Height = 122
    Align = alCustom
    DataField = 'DFROMWHO'
    DataSource = dlgDS
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 4
    Visible = False
  end
  object bFromFile: TcxButton [15]
    Left = 363
    Top = 50
    Width = 118
    Height = 25
    Caption = #1044#1086#1073#1072#1074#1080#1090#1100
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 8
    OnClick = bFromFileClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000CE0E0000D80E00001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333387F3333333333333333333333333333387F333333333333344333
      3333333333387F3333333333333443333333333333387F333333333333344333
      3333333333387F3333333333333443333333333333387F333333333333344333
      3333387FFFFFFFFFFFFF3344444444444433387777777F777777334444444444
      4433388888887F8888883333333443333333333333387F333333333333344333
      3333333333387F3333333333333443333333333333387F333333333333344333
      3333333333387F33333333333334433333333333333877333333333333333333
      3333333333388833333333333333333333333333333333333333}
    NumGlyphs = 2
  end
  object bScan: TcxButton [16]
    Left = 444
    Top = 738
    Width = 113
    Height = 25
    Caption = #1057#1082#1072#1085#1080#1088#1086#1074#1072#1090#1100
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 9
    Visible = False
    OnClick = bScanClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
      333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
      0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
      07333337F33333337F333330FFFFFFFF07333337F33333337F333330FFFFFFFF
      07333FF7F33333337FFFBBB0FFFFFFFF0BB37777F3333333777F3BB0FFFFFFFF
      0BBB3777F3333FFF77773330FFFF000003333337F333777773333330FFFF0FF0
      33333337F3337F37F3333330FFFF0F0B33333337F3337F77FF333330FFFF003B
      B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
      3BB33773333773333773B333333B3333333B7333333733333337}
    NumGlyphs = 2
  end
  object bDel: TcxButton [17]
    Left = 486
    Top = 50
    Width = 104
    Height = 25
    Caption = #1059#1076#1072#1083#1080#1090#1100
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 10
    OnClick = bDelClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      0400000000000001000000000000000000001000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333333333333333333333333333333333333333333333
      3333333333333333333333337333333333333333F33333333333333313333333
      333333337F33333333333333113333713333333377F33377F333333371733717
      3333333377F3377F333333333117311333333333377F377F3333333337111133
      33333333337777F33333333337111333333333333F777F333333333371111733
      3333333337777F3333333333117311733333333377F377F33333333333333117
      333333333333377F33333333333333117333333333333377F333333333333333
      3333333333333333333333333333333333333333333333333333}
    NumGlyphs = 2
  end
  object cxDBCheckBox1: TcxDBCheckBox [18]
    Left = 8
    Top = 456
    Caption = #1054#1089#1085#1086#1074#1085#1086#1081' '#1076#1083#1103' '#1091#1089#1090#1072#1085#1086#1074#1083#1077#1085#1080#1103' '#1083#1080#1095#1085#1086#1089#1090#1080
    DataBinding.DataField = 'DMAINDOC'
    DataBinding.DataSource = dlgDS
    ParentFont = False
    Properties.Alignment = taLeftJustify
    Properties.NullStyle = nssUnchecked
    Properties.ValueChecked = 1
    Properties.ValueUnchecked = 0
    Style.Font.Charset = DEFAULT_CHARSET
    Style.Font.Color = clWindowText
    Style.Font.Height = -16
    Style.Font.Name = 'Tahoma'
    Style.Font.Style = [fsBold]
    Style.IsFontAssigned = True
    TabOrder = 11
    Width = 353
  end
  object cbOsn: TcxCheckBox [19]
    Left = 8
    Top = 488
    Properties.NullStyle = nssUnchecked
    Properties.OnChange = cbOsnPropertiesChange
    TabOrder = 12
    Width = 337
  end
  object PdfViewer1: TPdfViewer [20]
    Left = 360
    Top = 96
    Width = 601
    Height = 673
    About = 'Synactis PDF Viewer version 1.0'
    AutoOpen = True
    Copies = 1
    EndPage = 0
    FitMode = vmFit
    LayoutMode = lmDontCare
    PageMode = pmStandard
    ShowPrintDialog = True
    ShowScrollBars = True
    ShowToolBar = True
    ShrinkToMargins = True
    StartPage = 1
  end
  inherited dlgDS: TDataSource
    Left = 264
    Top = 40
  end
  object odScan: TOpenDialog
    Filter = 'PDF|*.pdf'
    InitialDir = 'c:\'
    Left = 416
    Top = 96
  end
  object dsScanDoc: TDataSource
    DataSet = qScanDoc
    Left = 352
    Top = 64
  end
  object qScanDoc: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    AfterInsert = qScanDocAfterInsert
    CachedUpdates = True
    DataSource = dlgDS
    SQL.Strings = (
      'SELECT DS.*'
      'FROM D_SCAN DS'
      'WHERE DS.DID = :DID'
      '')
    UpdateObject = quScanDoc
    GeneratorField.Field = 'DSID'
    GeneratorField.Generator = 'GEN_D_SCAN'
    Left = 384
    Top = 64
    ParamData = <
      item
        DataType = ftInteger
        Name = 'DID'
        ParamType = ptUnknown
        Size = 4
      end>
    object qScanDocDSID: TIntegerField
      DisplayLabel = #1050#1086#1076
      FieldName = 'DSID'
      Origin = '"D_SCAN"."DSID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      Visible = False
    end
    object qScanDocDSNOTE: TIBStringField
      DisplayLabel = #1050#1086#1084#1084#1077#1085#1090#1072#1088#1080#1081
      FieldName = 'DSNOTE'
      Origin = '"D_SCAN"."DSNOTE"'
      Size = 255
    end
    object qScanDocDSIMAGE: TBlobField
      FieldName = 'DSIMAGE'
      Origin = '"D_SCAN"."DSIMAGE"'
      ProviderFlags = [pfInUpdate]
      Size = 8
    end
    object qScanDocDID: TIntegerField
      FieldName = 'DID'
      Origin = '"D_SCAN"."DID"'
      Required = True
      Visible = False
    end
    object qScanDocDSUSERENTER: TIBStringField
      FieldName = 'DSUSERENTER'
      Origin = '"D_SCAN"."DSUSERENTER"'
      Visible = False
      Size = 40
    end
    object qScanDocDSTIMEENTER: TDateTimeField
      FieldName = 'DSTIMEENTER'
      Origin = '"D_SCAN"."DSTIMEENTER"'
      Visible = False
    end
    object qScanDocDSUSEREDIT: TIBStringField
      FieldName = 'DSUSEREDIT'
      Origin = '"D_SCAN"."DSUSEREDIT"'
      Visible = False
      Size = 40
    end
    object qScanDocDSTIMEEDIT: TDateTimeField
      FieldName = 'DSTIMEEDIT'
      Origin = '"D_SCAN"."DSTIMEEDIT"'
      Visible = False
    end
  end
  object quScanDoc: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  DSID,'
      '  DID,'
      '  DSIMAGE,'
      '  DSNOTE,'
      '  DSUSERENTER,'
      '  DSTIMEENTER,'
      '  DSUSEREDIT,'
      '  DSTIMEEDIT'
      'from D_SCAN '
      'where'
      '  DSID = :DSID')
    ModifySQL.Strings = (
      'update D_SCAN'
      'set'
      '  DID = :DID,'
      '  DSID = :DSID,'
      '  DSIMAGE = :DSIMAGE,'
      '  DSNOTE = :DSNOTE,'
      '  DSTIMEEDIT = :DSTIMEEDIT,'
      '  DSTIMEENTER = :DSTIMEENTER,'
      '  DSUSEREDIT = :DSUSEREDIT,'
      '  DSUSERENTER = :DSUSERENTER'
      'where'
      '  DSID = :OLD_DSID')
    InsertSQL.Strings = (
      'insert into D_SCAN'
      
        '  (DID, DSID, DSIMAGE, DSNOTE, DSTIMEEDIT, DSTIMEENTER, DSUSERED' +
        'IT, DSUSERENTER)'
      'values'
      
        '  (:DID, :DSID, :DSIMAGE, :DSNOTE, :DSTIMEEDIT, :DSTIMEENTER, :D' +
        'SUSEREDIT, '
      '   :DSUSERENTER)')
    DeleteSQL.Strings = (
      'delete from D_SCAN'
      'where'
      '  DSID = :OLD_DSID')
    Left = 416
    Top = 64
  end
  object cxPropertiesStore1: TcxPropertiesStore
    Components = <
      item
        Component = odScan
        Properties.Strings = (
          'FileName')
      end>
    StorageName = 'Software\Olympic_PS_fmAddEditDoc'
    StorageType = stRegistry
    Left = 480
    Top = 112
  end
end
